home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 1 / The Apple Reference and Presentations Library (Disc 1)(January 1994).iso / Frame Technology / US English / FrameMaker 4-68K / System Extras / PS Printer 8.1.1 / PSPrinter / PSPrinter.rsrc / PS_-8186 < prev    next >
Text File  |  1993-10-08  |  4KB  |  311 lines
  1. %%BeginFile: adobe_psp_derived_styles
  2. %%Copyright: Copyright 1990-1993 Adobe Systems Incorporated. All Rights Reserved.
  3. /wi
  4. version(23.0)eq
  5. {
  6. {
  7. gS 0 0 0 0 rC stringwidth gR
  8. }bind
  9. }{
  10. /stringwidth load
  11. }ifelse
  12. def
  13. /$o 1. def
  14. /gl{$o G}bd
  15. /ms{:M S}bd
  16. /condensedmtx[.82 0 0 1 0 0]def
  17. /:mc
  18. {
  19. condensedmtx :mf def
  20. }bd
  21. /extendedmtx[1.18 0 0 1 0 0]def
  22. /:me
  23. {
  24. extendedmtx :mf def
  25. }bd
  26. /basefont Z
  27. /basefonto Z
  28. /dxa Z
  29. /dxb Z
  30. /dxc Z
  31. /dxd Z
  32. /dsdx2 Z
  33. /bfproc Z
  34. /:fbase
  35. {
  36. dup/FontType get 0 eq{
  37. dup length dict begin
  38. dup{1 index/FID ne 2 index/UniqueID ne and{def}{pop pop}ifelse}forall
  39. /FDepVector exch/FDepVector get[exch/:fbase load forall]def
  40. }/bfproc load ifelse
  41. /customfont currentdict end definefont
  42. }bd
  43. /:mo
  44. {
  45. /bfproc{
  46. dup dup length 2 add dict
  47. begin
  48. {
  49. 1 index/FID ne 2 index/UniqueID ne and{def}{pop pop}ifelse
  50. }forall
  51. /PaintType 2 def
  52. /StrokeWidth .012 0 FontMatrix idtransform pop def
  53. /customfont currentdict
  54. end
  55. definefont
  56. 8 dict begin
  57. /basefonto xdf
  58. /basefont xdf
  59. /FontType 3 def
  60. /FontMatrix[1 0 0 1 0 0]def
  61. /FontBBox[0 0 1 1]def
  62. /Encoding StandardEncoding def
  63. /BuildChar
  64. {
  65. exch begin
  66. basefont setfont
  67. ( )dup 0 4 -1 roll put
  68. dup wi
  69. setcharwidth
  70. 0 0 :M
  71. gS
  72. gl
  73. dup show
  74. gR
  75. basefonto setfont
  76. show
  77. end
  78. }def
  79. }store :fbase
  80. }bd
  81. /:mso
  82. {
  83. /bfproc{
  84. 7 dict begin
  85. /basefont xdf
  86. /FontType 3 def
  87. /FontMatrix[1 0 0 1 0 0]def
  88. /FontBBox[0 0 1 1]def
  89. /Encoding StandardEncoding def
  90. /BuildChar
  91. {
  92. exch begin
  93. sD begin
  94. /dxa 1 ps div def
  95. basefont setfont
  96. ( )dup 0 4 -1 roll put
  97. dup wi
  98. 1 index 0 ne
  99. {
  100. exch dxa add exch
  101. }if
  102. setcharwidth
  103. dup 0 0 ms
  104. dup dxa 0 ms
  105. dup dxa dxa ms
  106. dup 0 dxa ms
  107. gl
  108. dxa 2. div dup ms
  109. end
  110. end
  111. }def
  112. }store :fbase
  113. }bd
  114. /:ms
  115. {
  116. /bfproc{
  117. dup dup length 2 add dict
  118. begin
  119. {
  120. 1 index/FID ne 2 index/UniqueID ne and{def}{pop pop}ifelse
  121. }forall
  122. /PaintType 2 def
  123. /StrokeWidth .012 0 FontMatrix idtransform pop def
  124. /customfont currentdict
  125. end
  126. definefont
  127. 8 dict begin
  128. /basefonto xdf
  129. /basefont xdf
  130. /FontType 3 def
  131. /FontMatrix[1 0 0 1 0 0]def
  132. /FontBBox[0 0 1 1]def
  133. /Encoding StandardEncoding def
  134. /BuildChar
  135. {
  136. exch begin
  137. sD begin
  138. /dxb .05 def
  139. basefont setfont
  140. ( )dup 0 4 -1 roll put
  141. dup wi
  142. exch dup 0 ne
  143. {
  144. dxb add
  145. }if
  146. exch setcharwidth
  147. dup dxb .01 add 0 ms
  148. 0 dxb :T
  149. gS
  150. gl
  151. dup 0 0 ms
  152. gR
  153. basefonto setfont
  154. 0 0 ms
  155. end
  156. end
  157. }def
  158. }store :fbase
  159. }bd
  160. /:mss
  161. {
  162. /bfproc{
  163. 7 dict begin
  164. /basefont xdf
  165. /FontType 3 def
  166. /FontMatrix[1 0 0 1 0 0]def
  167. /FontBBox[0 0 1 1]def
  168. /Encoding StandardEncoding def
  169. /BuildChar
  170. {
  171. exch begin
  172. sD begin
  173. /dxc 1 ps div def
  174. /dsdx2 .05 dxc 2 div add def
  175. basefont setfont
  176. ( )dup 0 4 -1 roll put
  177. dup wi
  178. exch dup 0 ne
  179. {
  180. dsdx2 add
  181. }if
  182. exch setcharwidth
  183. dup dsdx2 .01 add 0 ms
  184. 0 .05 dxc 2 div sub :T
  185. dup 0 0 ms
  186. dup dxc 0 ms
  187. dup dxc dxc ms
  188. dup 0 dxc ms
  189. gl
  190. dxc 2 div dup ms
  191. end
  192. end
  193. }def
  194. }store :fbase
  195. }bd
  196. /:msb
  197. {
  198. /bfproc{
  199. 7 dict begin
  200. /basefont xdf
  201. /FontType 3 def
  202. /FontMatrix[1 0 0 1 0 0]def
  203. /FontBBox[0 0 1 1]def
  204. /Encoding StandardEncoding def
  205. /BuildChar
  206. {
  207. exch begin
  208. sD begin
  209. /dxd .03 def
  210. basefont setfont
  211. ( )dup 0 4 -1 roll put
  212. dup wi
  213. 1 index 0 ne
  214. {
  215. exch dxd add exch
  216. }if
  217. setcharwidth
  218. dup 0 0 ms
  219. dup dxd 0 ms
  220. dup dxd dxd ms
  221. 0 dxd ms
  222. end
  223. end
  224. }def
  225. }store :fbase
  226. }bd
  227. /italicmtx[1 0 -.212557 1 0 0]def
  228. /:mi
  229. {
  230. italicmtx :mf def
  231. }bd
  232. /:v
  233. {
  234. [exch dup/FontMatrix get exch
  235. dup/FontInfo known
  236. {
  237. /FontInfo get
  238. dup/UnderlinePosition known
  239. {
  240. dup/UnderlinePosition get
  241. 2 index 0
  242. 3 1 roll
  243. transform
  244. exch pop
  245. }{
  246. .1
  247. }ifelse
  248. 3 1 roll
  249. dup/UnderlineThickness known
  250. {
  251. /UnderlineThickness get
  252. exch 0 3 1 roll
  253. transform
  254. exch pop
  255. abs
  256. }{
  257. pop pop .067
  258. }ifelse
  259. }{
  260. pop pop .1 .067
  261. }ifelse
  262. ]
  263. }bd
  264. /$t Z
  265. /$p Z
  266. /$s Z
  267. /:p
  268. {
  269. aload pop
  270. 2 index mul/$t xs
  271. 1 index mul/$p xs
  272. .012 mul/$s xs
  273. }bd
  274. /:m
  275. {gS
  276. 0 $p rm
  277. $t lw
  278. 0 rl stroke
  279. gR
  280. }bd
  281. /:n
  282. {
  283. gS
  284. 0 $p rm
  285. $t lw
  286. 0 rl
  287. gS
  288. gl
  289. stroke
  290. gR
  291. strokepath
  292. $s lw
  293. /setstrokeadjust where{pop
  294. currentstrokeadjust true setstrokeadjust stroke setstrokeadjust
  295. }{
  296. stroke
  297. }ifelse
  298. gR
  299. }bd
  300. /:o
  301. {gS
  302. 0 $p rm
  303. $t 2 div dup rm
  304. $t lw
  305. dup 0 rl
  306. stroke
  307. gR
  308. :n
  309. }bd
  310. %%EndFile
  311.